﻿Module Module1
  Sub Main()

    Dim numeroIntero As Integer = 250
    Dim numeroDouble As Double
    numeroDouble = Convert.ToDouble(numeroIntero)
    numeroDouble += 0.5
    Console.WriteLine(numeroDouble.ToString)
    Console.ReadLine()
  End Sub
End Module
